home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 61 / Quick PC 61.iso / I386 / IPP_0014.AS_ / ipp_0014.asp
Encoding:
Text File  |  2003-02-21  |  1.5 KB  |  60 lines
  1. ∩╗┐<%@ CODEPAGE=65001 %>
  2. <%
  3. '------------------------------------------------------------
  4. '
  5. ' Microsoft Internet Printing Project
  6. '
  7. ' Copyright (c) Microsoft Corporation. All rights reserved.
  8. '
  9. '------------------------------------------------------------
  10.     Option Explicit
  11. %>
  12. <!-- #include file = "ipp_util.inc" -->
  13. <%
  14.     Response.Expires = 0
  15.     Const L_TitlePrintError_Text = "Internet Printing Error"
  16.     Const L_UnknownErr_Message = "An unknown error happened, please contact your administrator"
  17. %>
  18.  
  19. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
  20. <html lang=<%=L_Language%>>
  21. <head>
  22. <Meta Http-equiv="Content-Type" Content="text/html; CHARSET=UTF-8">
  23. <title><% =Write(L_TitlePrintError_Text) %></title>
  24. </head>
  25.  
  26. <body>
  27.  
  28. <%=Write(CLIENT_FONT)%><p>
  29. <%Const L_PrtFail_Text = "<H2>Printer Installation Failed</H2>"%>
  30. <%=Write(L_PrtFail_Text)%>
  31. </p>
  32. <font size=2>
  33. <%
  34.     Dim iCode
  35.     Dim strError
  36.     iCode = Request("code")
  37.     If iCode <> "" Or iCode <>"0" Then
  38.         Dim objPrinter
  39.  
  40.         Set objPrinter = Server.CreateObject (PROGID_HELPER)
  41.         On Error Resume Next
  42.         Err.Clear
  43.         strError = objPrinter.ErrorDscp (iCode)
  44.         If Err.Number <> 0 Then
  45.             Const L_ErrMsg_Text = "Error Code = %1"
  46.             strError = RepString1(L_ErrMsg_Text,Hex (iCode))
  47.         End If
  48.     Else
  49.         strError = L_UnknownErr_Message
  50.     End If
  51.  
  52.     Response.Write (Write (strError))
  53.  
  54. %>
  55. </font>
  56. <%=END_FONT%>
  57.  
  58. </body>
  59. </html>
  60.